---
title: "mumutrytry"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(dplyr)
library(ggplot2)
library(ggrepel)
```

Column {data-width=650}
-----------------------------------------------------------------------

### 全國平均家戶年所得比較台大學生家庭平均年所得

```{r}
mydata <- readr::read_csv("/Users/linshumin/Desktop/學分大作戰/R 資料庫/期末專題/台大全國平均所得比較.csv")
ggplot(data = mydata) +
  geom_line(aes(x = Years, y = 台大平均年所得, group = 1, color = "NTU")) +
  geom_point(aes(x = Years, y = 台大平均年所得, color = "NTU")) + 
  geom_line(aes(x = Years, y = 全國平均年所得, group = 1, color = "Taiwan")) +
  geom_point(aes(x = Years, y = 全國平均年所得, color = "Taiwan")) +
  scale_color_manual(values = c("#9393FF", "#AAAAFF"), name = "place") +
  labs(x = "Years Group", y = "Average Annual Income")
```